home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas2.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  581 b   |  16 lines
  1. ;; Canvas item types
  2. ;; We use here the fact that "wtour-lessondir" contains the path of the
  3. ;; wtour demo
  4.  
  5. (canvas '.c2)
  6. (pack .c2 :fill "both" :expand #t)
  7.  
  8. (.c2 'create 'arc 10 10 50 50 :fill "red")
  9. (.c2 'create 'line 10 100 40 140 :fill "blue")
  10. (.c2 'create 'oval 150 150 170 200 :fill "yellow")
  11. (.c2 'create 'polygon 200 10 210 50 280 20 :fill "green")
  12. (.c2 'create 'rectangle 10 200 30 250 :fill "cyan")
  13. (.c2 'create 'text 100 220 :text "Some random text")
  14. (.c2 'create 'bitmap 120 70 :bitmap (string-append "@" 
  15.                            wtour-lessondir
  16.                            "/../lib/iu.seal.small.xbm"))